home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / CRYSTAL / VTABLET.DEF < prev    next >
Encoding:
Modula Definition  |  1992-05-28  |  1.5 KB  |  49 lines
  1. DEFINITION MODULE VTablet;
  2.  
  3. (*
  4. VDI Escape Functions for graphic Tablets.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM VDI    IMPORT XY;
  12. FROM PORTAB IMPORT UNSIGNEDWORD;
  13.  
  14. (* [V]DI [T]ablet Functions: Set Tablet Axis [Resolution] in Lines/Inch ****)
  15.  
  16. PROCEDURE VTResolution(    Handle: UNSIGNEDWORD;
  17.                            XRes  : UNSIGNEDWORD;
  18.                            YRes  : UNSIGNEDWORD;
  19.                        VAR XSet  : UNSIGNEDWORD;
  20.                        VAR YSet  : UNSIGNEDWORD);
  21.  
  22. (* [V]DI [T]ablet Functions: Set Tablet Axis [Resolution] in Lines *********)
  23.  
  24. PROCEDURE VTAxis(    Handle: UNSIGNEDWORD;
  25.                      XRes  : UNSIGNEDWORD;
  26.                      YRes  : UNSIGNEDWORD;
  27.                  VAR XSet  : UNSIGNEDWORD;
  28.                  VAR YSet  : UNSIGNEDWORD);
  29.  
  30. (* [V]DI [T]ablet Functions: Set Tablet X And Y [Origin] *******************)
  31.  
  32. PROCEDURE VTOrigin(Handle : UNSIGNEDWORD;
  33.                    XOrigin: UNSIGNEDWORD;
  34.                    YOrigin: UNSIGNEDWORD);
  35.  
  36. (* [V]DI Tablet Functions: [Q]uery [T]ablet X And Y [Dimensions] ***********)
  37.  
  38. PROCEDURE VQTDimensions(    Handle    : UNSIGNEDWORD;
  39.                         VAR XDimension: UNSIGNEDWORD;
  40.                         VAR YDimension: UNSIGNEDWORD);
  41.  
  42. (* [V]DI [T]ablet Functions: Set Tablet [Alignment] ************************)
  43.  
  44. PROCEDURE VTAlignment(Handle: UNSIGNEDWORD;
  45.                       DX    : UNSIGNEDWORD;
  46.                       DY    : UNSIGNEDWORD);
  47.  
  48. END VTablet.
  49.